home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 32 / mailprnt.cmd < prev    next >
Encoding:
Text File  |  1986-07-17  |  2.8 KB  |  128 lines
  1. * MAILPRNT.PRG
  2. *
  3. SET TOP MARGIN TO 0
  4. SET BOTTOM MARGIN TO 0
  5. SET HEADING TO
  6. SET HEADING2 TO
  7. SET FOOTER TO
  8. Y.READNO = 1
  9. Y.PRINT_PAR = SPACE(80)
  10. ERASE
  11. USE MAILLIST
  12. DO WHILE T
  13.     @ 00,00 SAY CENTER('PRINT LABELS',79)
  14.     @ 01,00 SAY CENTER('F2=HELP  F3 = QUIT  F8=ERASE',79)
  15.     @ 05,00 SAY 'PLEASE ENTER SELECTION CRITERIA OR RETURN FOR NONE.'
  16.     @ 09,00 SAY 'EXAMPLE : STATE = "CA"'
  17.     @ 10,00 SAY '          LAST_NAME > "D"'
  18.     @ 11,00 SAY '          COMPANY > " " AND STATE <> "WA"'
  19.     @ 13,00 SAY 'FIELD NAMES :'
  20.     @ 14,00 SAY 'FIRST_NAME : LAST_NAME : ADDRESS1 : ADDRESS2 : CITY : STATE : ZIP : PHONE'
  21.     @ 16,00 SAY 'PLEASE INCLUDE THE ENTIRE FIELD NAME AND ENCLOSE YOUR DATA IN QUOTES.'
  22.     @ 17,00 SAY 'PRESS THE F2 KEY FOR MORE HELP.' 
  23.     @ 07,00 GET Y.PRINT_PAR PICTURE DUPCHAR(33,80)
  24.     READ GETNO Y.READNO
  25.     DO CASE
  26.     CASE LASTKEY() = 189 OR LASTKEY() = 27 OR LASTKEY() = 17| F3 OR ESC OR ^Q
  27.         CLOSE ALL
  28.         RETURN
  29.     CASE LASTKEY() = 188 OR LASTKEY() = 8 | F2 OR ^H
  30.         DO MAILPRH1
  31.         LOOP
  32.     CASE LEN(TRIM(Y.PRINT_PAR)) = 0
  33.         EXIT
  34.     CASE TYPE(Y.PRINT_PAR) = 'L'
  35.         EXIT
  36.     OTHERWISE
  37.         @ 24,00 SAY 'SOME THING IN YOUR PARAMETERS WAS NOT CORRECT.  PLEASE REENTER'
  38.         BEEP
  39.         LOOP
  40.     ENDCASE
  41. ENDDO
  42. DO WHILE T
  43.     ERASE
  44.     @ 00,00 SAY CENTER ('PRINT LABELS',79)
  45.     ASSIGN VMENU('*','PRINT IN NAME ORDER*PRINT IN COMPANY ORDER*PRINT IN ZIP CODE ORDER*QUIT',5,1)
  46.     DO CASE
  47.         CASE VMENU() = 1 
  48.             SET INDEX TO MAILNAME
  49.         CASE VMENU() = 2
  50.             SET INDEX TO MAILCOMP
  51.         CASE VMENU() = 3
  52.             SET INDEX TO MAILZIP
  53.         CASE NRANGE(VMENU(),40,44)
  54.             DO MAILPRH2
  55.             LOOP
  56.         OTHERWISE
  57.             RETURN
  58.     ENDCASE
  59.     EXIT
  60. ENDDO
  61. DO WHILE T
  62.     Y.ANS = ' '
  63.     ERASE
  64.     @ 0,0 SAY CENTER ('PRINT LABELS',79)
  65.     @ 10,00 SAY 'PLEASE READY PRINTER PRESS ANY KEY TO CONTINUE OR P TO PRINT TEST :' GET Y.ANS
  66.     READ
  67.     IF !(Y.ANS) = 'P'
  68.         SET PRINT ON
  69.         SET CONSOLE OFF
  70.         ? 'XXXXXXXXXX'
  71.         ? 'XXXXXXXXXX'
  72.         ? 'XXXXXXXXXX'
  73.         ? 'XXXXXXXXXX'
  74.         ?
  75.         ?
  76.         SET PRINT OFF
  77.         SET CONSOLE ON
  78.     ELSE
  79.         EXIT
  80.     ENDIF
  81. ENDDO
  82. SET FILTER TO &Y.PRINT_PAR
  83. SET DELETED ON
  84. GO TOP
  85. ERASE
  86. @ 00,00 SAY CENTER('PRINT LABELS',79)
  87. @ 10,00 SAY 'PRINTING.......  PRESS ANY TO ABORT.'
  88. SET PRINT ON
  89. SET CONSOLE OFF
  90. SET ESCAPE OFF
  91. DO WHILE NOT EOF(FP)
  92.     IF INKEY() <> 0
  93.         CLOSE ALL
  94.         SET DELETED OFF
  95.         EXIT
  96.     ENDIF
  97.     IF P.LAST_NAME <> ' ' AND P.FIRST_NAME <> ' '
  98.         ? P.FIRST_NAME-' '+P.LAST_NAME
  99.     ENDIF
  100.     IF P.COMPANY <> ' '
  101.         ? P.COMPANY
  102.     ENDIF
  103.     ? P.ADDRESS1
  104.     IF P.ADDRESS2 <> ' '
  105.         ? P.ADDRESS2
  106.     ENDIF
  107.     ? TRIM(CITY)+',  '+STATE+'   '+ZIP
  108.     ?
  109.     IF P.LAST_NAME = ' ' AND P.FIRST_NAME = ' '
  110.         ?
  111.     ENDIF
  112.     IF P.COMPANY = ' '
  113.         ?
  114.     ENDIF
  115.     IF P.ADDRESS2 = ' '
  116.         ?
  117.     ENDIF
  118.     SKIP
  119. ENDDO
  120. CLOSE ALL
  121. SET DELETED OFF
  122. SET PRINT OFF
  123. SET CONSOLE ON
  124. SET TOP MARGIN TO 3
  125. SET BOTTOM MARGIN TO 3
  126. ERASE
  127. RETURN
  128. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə